www.gusucode.com > ASP 在线订购程序 > ASP 在线订购程序\code\admin\admin_manage.asp
<!--#include file="../conn.asp"-->
<!--#include file="login_admin.asp"-->
<%
dim rs
dim id
dim username
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open "select * from admin where username='"&session("admin1")&"'",conn,1,1
id=rs("id")
username=rs("username")
rs.close
set rs=Nothing
%>
<html>
<head>
<title>管理中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css/style.css">
<script language="JavaScript">
function admin1_add(id){
var id;
var username;
var password;
var rank;
form.username.value="";
form.password.value="";
form.rank.value="";
form.action.value="add";
}
</script>
<script language="JavaScript">
function admin1_edit(username,password,rank,id){
var username;
var password;
var rank;
var id;
form.username.value=username;
form.password.value=password;
form.rank.value=rank;
form.action.value='edit';
form.id.value=id;
}
</script>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="20">
<%if session("rank")=1 then%>
</td>
</tr>
<tr>
<td height="20">
<%else%>
<%end if%>
</td>
</tr>
<tr>
<td height="100%" valign="top"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td width="768" valign="top"><table width="515" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="form2" method="post" action="admin_manage_ok.asp?id=<%=id%>">
<tr>
<td width="65" height="25">用 户 名：</td>
<td><input name="username" type="text" id="username" value="<%=username%>"></td>
</tr>
<tr>
<td height="25">登录密码：</td>
<td><input name="password" type="password" id="password" maxlength="10">
* 登录密码是长度6-10个的英文或数字</td>
</tr>
<tr>
<td height="25">密码确认：</td>
<td><input name="password_ok" type="password" id="password_ok" maxlength="10">
* 请再输入一次登录密码</td>
</tr>
<tr>
<td height="30"></td>
<td> <input type="submit" value="确定"> <input type="reset" value="重写">
</td>
</tr>
</form>
</table>
<%if session("rank")=1 then%>
<table width="515" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td height="10" bgcolor="#FFFFFF"></td>
</tr>
</table>
<table width="515" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFCC00">
<td colspan="5">管 理 员 管 理</td>
</tr>
<tr>
<td width="50" align="center" bgcolor="#f5f5f5">ID</td>
<td width="125" align="center" bgcolor="#f5f5f5">用 户 名</td>
<td width="125" align="center" bgcolor="#f5f5f5">密 码</td>
<td width="50" align="center" bgcolor="#f5f5f5">级 别</td>
<td width="50" align="center" bgcolor="#f5f5f5">删 除</td>
</tr>
<%
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open "select * from admin order by id desc",conn,1,1
if rs.eof and rs.bof then
'
else
do while not rs.eof
%>
<tr>
<td align="center" bgcolor="#FFFFFF"><%=rs("id")%></td>
<td bgcolor="#FFFFFF"><%=rs("username")%></td>
<td bgcolor="#FFFFFF">
<%if session("rank")=1 then%>
<%=rs("password")%>
<%else%>
******
<%end if%>
</td>
<td align="center" bgcolor="#FFFFFF"><%=rs("rank")%></td>
<td align="center" bgcolor="#FFFFFF"><a href="javascript:admin_delete(<%=rs("id")%>)"><font color="#FF0000">删除</font></a></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
set rs=Nothing
%>
<tr align="center" bgcolor="#f5f5f5">
<td height="5" colspan="5"> </td>
</tr>
</table>
<%else%>
<%end if%>
<table width="515" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10" bgcolor="#FFFFFF"></td>
</tr>
</table>
<script language="JavaScript">
function admin_delete(id){
var id;
if (confirm("确定删除这个管理员吗？删除后不能恢复！")){
document.location.href="admin_ok.asp?action=delete&id="+id+"";
}
}
</script> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="20"></td>
</tr>
</table>
</body>
</html>
<%
conn.close
set conn=nothing
%>